home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / mono / q.dxr / 00064.ls < prev    next >
Encoding:
Text File  |  1996-07-06  |  1.2 KB  |  39 lines
  1. global foremovie
  2.  
  3. on startpictset
  4.   global startpictnum
  5.   if (startpictnum = 2) or (startpictnum = 6) then
  6.     set the castNum of sprite 3 to the number of member "002/006"
  7.   else
  8.     if (startpictnum = 3) or (startpictnum = 25) then
  9.       set the castNum of sprite 3 to the number of member "003/025"
  10.     else
  11.       if (startpictnum = 4) or (startpictnum = 8) then
  12.         set the castNum of sprite 3 to the number of member "004/008"
  13.       else
  14.         if (startpictnum = 5) or (startpictnum = 15) then
  15.           set the castNum of sprite 3 to the number of member "005/015"
  16.         else
  17.           if (startpictnum = 10) or (startpictnum = 20) then
  18.             set the castNum of sprite 3 to the number of member "010/020"
  19.           else
  20.             if (startpictnum = 11) or (startpictnum = 26) then
  21.               set the castNum of sprite 3 to the number of member "011/026"
  22.             else
  23.               set a to digitchange(startpictnum)
  24.               set the castNum of sprite 3 to the number of member a
  25.             end if
  26.           end if
  27.         end if
  28.       end if
  29.     end if
  30.   end if
  31. end
  32.  
  33. on digitchange num
  34.   set a to num / 100
  35.   set b to (num - (100 * a)) / 10
  36.   set c to num - (100 * a) - (10 * b)
  37.   return a & b & c
  38. end
  39.